﻿'Public Class MessageQueue

'#Region "Variables"
'    'property variables
'    Private _message As String = String.Empty
'    Private _priority As Integer = 0
'    Private _expires As Date = Now
'    Private _tooltip As String = String.Empty

'    'global variables
'    Private intQueueCount As Integer = 0
'    Private MsgItem(19) As String

'#End Region

'#Region "Properties"

'    ''' <summary>
'    ''' Property to hold message text
'    ''' of our queue item
'    ''' </summary>
'    Public Property message() As String
'        Get
'            Return _message
'        End Get
'        Set(ByVal value As String)
'            _message = value
'        End Set
'    End Property

'    ''' <summary>
'    ''' Property to hold the priority
'    ''' of our queue item
'    ''' </summary>
'    Public Property priority() As String
'        Get
'            Return _priority
'        End Get
'        Set(ByVal value As String)
'            _priority = value
'        End Set
'    End Property

'    ''' <summary>
'    ''' Property to hold the priority
'    ''' of our queue item
'    ''' </summary>
'    Public Property expires() As String
'        Get
'            Return _expires
'        End Get
'        Set(ByVal value As String)
'            _expires = value
'        End Set
'    End Property

'    ''' <summary>
'    ''' Property to hold the priority
'    ''' of our queue item
'    ''' </summary>
'    Public Property tooltip() As String
'        Get
'            Return _tooltip
'        End Get
'        Set(ByVal value As String)
'            _tooltip = value
'        End Set
'    End Property

'#End Region

'#Region "Constructors"

'    ''' <summary>
'    ''' Constructor to set the properties of our Queue Class
'    ''' </summary>
'    ''' <param name="message">Item Message</param>
'    ''' <param name="priority">Item Priority</param>
'    ''' <param name="expires">Item Expirity Date</param>
'    ''' <param name="tooltip">Item ToolTip</param>
'    Public Sub New(ByVal text As String, ByVal pri As Integer, ByVal expire As Date, ByVal tip As String)
'        _message = text
'        _priority = pri
'        _expires = expire
'        _tooltip = tip
'        'now add an event handler
'        AddHandler comPort.DataReceived, AddressOf comPort_DataReceived
'    End Sub

'    ''' <summary>
'    ''' Comstructor to set the properties of our
'    ''' serial port communicator to nothing
'    ''' </summary>
'    Public Sub New()
'        _baudRate = String.Empty
'        _parity = String.Empty
'        _stopBits = String.Empty
'        _dataBits = String.Empty
'        _portName = "COM1"
'        _displayWindowRx = Nothing
'        _displayWindowTx = Nothing
'        'add event handler
'        AddHandler comPort.DataReceived, AddressOf comPort_DataReceived
'    End Sub


'#End Region


'End Class
